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yell how did we go with that wish list called for in October's editorial? Not very well* is the short answer. You 
may recall that we offered some suggestions for content of this newsletter and sought your 'wish list" of just what 
you wanted to see. I must say that the number of replies did not prompt me to visit the local hardware store for a 
larger mail bo>:. There was one response though by way of a note added to a subscription renewal T which I will 
repeat for you. "(lore C, less EasicB9*. Do you agree? 

On a more encouraging note however , we are happy to report that membership of this User Group has grown to forty- 
seven (47) which includes a number of renewals, and some new members. To those members who have renewed we offer 
our sincere thanks for your continued support, and to those members who have joined this year we say WELCOME and 
hope that you find something of interest in each coming edition. 

Just as a of matter interest, the membership last year reached a total of seventy-four, which we were very pleased 
with. Some of these members who have not renewed for this current subscription year were good enough to write and 
advise that they have made a change to other systems, for a variety of reasons. It seems that in spite of the lack 
of support by Intertan of both CoCo and OS-9, and their decision to drop the CoCo completely, there is still a good 
deal of interest in OS-9 by owners of this powerful little computer. The OS-9 operating system is widely used on 
the world scene for a variety of applications, and of course runs on a variety of hardware including computers 
supported by OS-9 68K. It may well be that we will change our computer system at some time in the future and toss 
out OS-9 for MS DOS. Perish the thought 1 

Although this newsletter reaches only the converted, or dedicated 0S9ers, we feel that our efforts can only help to 
maintain interest in this great operating system, and we hope to present articles and news about all 
implementations of OS-9. Therefore we do need material from ail members, at all levels of experience, in order 
that each of us can learn something from these pages. 

Now, I must confess to not following all our newsletter articles with the enthusiasm each author might hope for. 
At a local user group meeting during October, Don Serrie asked "Who has tried the Macro facilities of EDIT covered 
in the October newsletter 7 " Much to Don's disappointment, I had to say that I had not tried to use what he had 
covered in his article. How about you? I did, however, compile the Database in C by Bob Devries, and learnt a 
few things along the way, The instructions that Bob presented looked foolproof, but then he was probably not 
counting on somebody like me who jumped in with C compiler in hand and little reference to the instructions. This 
sounds very familiar doesn't it? Anyway, after a couple of 'unconditional abort" errors, and a little reading of 
the instructions, success was mine. If you have any problems with compiling the code presented in the series I am 
sure that Bob would be happy to help, but take it from me that all is in the instructions. 

You will all know that the process of learning requires some help from others, but most of all it requires some 
effort by you, so please make the effort to help yourself and to help others. The fundamental aim of this 
newsletter, after all, is just to help each other. 

This is not news, I hear you say, we already know all that. May I suggest then, that to stop me from continually 
pleading for articles and feedback, YOU send something to us. We want to publish your article, hint, tip, question 
or comment. So here is a challenge to every member to spend 41 cents and mail something for our next edition, 
which will be February 1990. We don't need a masterpiece (they ate few and far between) we do need at least a 
comment from everybody. 

We wish a Merry Christmas to all members, and trust that the new year brings to all, health, happiness and 
prosperity. Bob, Don & Gordon. 
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LINEATER 

An OSK Basic programme by David Eaton. 

0S9.6BB9 version by Bob Devries. 

Here's a little programme from one of our 68000 0S9 users. The programme simply shows how screen accessing 
is done on the ATARI version of 0S9, and could be made the basis of a learn-to-spell type programme. I have made 
the necessary changes and provided the CoCd version. It would be relatively easy to add to this piece of code to 
make it into a spelling programme. The speed of printing and erasing the characters on the screen can be changed by 
altering the FOR-NEXT loop variable y, which is currently set at 3000. An interesting point about the two different 
versions, is that they both run at the same speed, even though the ATARI computer runs at a much higher speed. 
I hope one of our readers will take up the challenge to write a programme around this small piece* for the benefit 
of others in our group. Below are the two listings* first the OSK (ATARI) version, then the 0S9 (CoCo) version. 

Regards... Bob Devries. 
PROCEDURE iineater 

0000 (* When using, replace 'DIM ab' with 'PARAM at' *) 

0034 (* A word or sentence is shown for a short time and then eaten *) 

0073 >* Version TDE 1.2 *) 

0090 U Adapted from programme in Nibble Vol. 2. No. 3 *) 

00C6 DIM ah : STRING 60] 

00DC DIM x,u» length: INTEGER 

00F4 PRINT CHR*i27>5 a E B 

0106 PRINT 'Enter the message you wish tc show for a short time B 

0142 PRINT \ PRINT 

014A INPUT ab 

0152 PRINT CHR$(27)," B E B 

0164 PRINT CHR*(27); "YM CHR*<44>; CHR$(50); 

016C PRINT ab 

0194 length=LEN(ab) 

01A2 FOR x=l TO 20000\ NEXT x 

01D4 FOR >;=length TO STEP -1 

01FE PRINT CHR$£27); m V\ CHR$(44); CHR*(5B+x); ' "i 

0232 FOR y=I TO 3000\ NEXT y 

0264 NEXT >: 

0276 PRINT 

027A END 

PROCEDURE Iineater 

0000 (* When using, replace 'DIM AB' with 'PARAM AB' 

002F (* A word or sentence is shown for a short time and then 'eaten' 

006F <* Version TDE 1.2 (adapted for CoCo BasidB9 by Bob Devries) 

00AB U Adapted from a programme in 'Nibble' Vol 2 No 3 

00DD DIM AB:STRIN5l603 

00E9 DIM x,y, length: INTEGER 

00FS PRINT CHR$U2) 

00FD PRINT 8 Enter message you wish tc show for a short time ' 

0131 PRINT \ PRINT 

0135 INPUT AB 

013A PRINT CHR*U2) 

013F PRINT CHR$(2)i CHR$(50)i CHR$(44); 

014D PRINT AB 

0152 length=LEN(AB) 

015B FOR >;=! TO 20000 \NEXT >: 

0177 FOR >;=length TO STEP -1 
018E PRINT CHR*(2)? CHR$(50+>;)| CHR$<44); " '; 
01A4 FOR y=l TO 3000 \NEXT y 

01 C0 NEXT x 

01 CE PRINT 

01 CD END 
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Resistor Calculator, 
presented by Bob Devries. 

Here's a handy little programme to work out what parallel or series combination of resistors are needed to 
produce an odd value that is not in the normally available range of resistors. Very handy for when you accidently 
connect your multimeter to the mains with it still switched to the ohms scale. The resistors in that part of a 
multimeter are usually very odd values. 

This programme came from 'Silicon Chip 1 magazine, and was written by Steve Payor i who wrote it in GWBasic 
for an IBM PC. I converted it to Basic09 and made some minor cosmetic changes to it. So here is the code: 



PROCEDURE 


Resistor 


0000 


BASE 1 


0002 


DIM E12(35):REAL 


000E 


DM i,j, nearest INTEGER 


001D 


DIM res, Rl,Rmin,Rma>:, tolerance: REAL 


0034 




0035 


PRINT CHR*(12) 


003A 


PRINT \ PRINT 


003E 


FOR 1=1 TO 35 


004E 


READ E12(i) 


0057 


NEXT l 


0062 




0063 


LOOP 


0065 


PRINT "Input desired resistance (1 to 999.9) 


0090 


INPUT res 


0095 


IF re=.=0 THEN 


00A2 


END 


00A4 


ENDIF 


00A6 


PRINT "Input desired tolerance (X) '; 


08C7 


INPUT tolerance 


ma 


Rmin=res*U-tolerance/100) 


00E0 


Rma>;=res*U+tolerance/I00) 


00F4 


PRINT CHR$U2) 


00F9 


PRINT \ PRINT 


00FD 


PRINT "Looking for a value between a ; Rmmj 


0131 


PRINT 


0133 


PRINT 'Calculating...' 


0145 


PRINT 


0147 


nearest=25 


014E 


LOOP 


0150 


EXITIF E12(nearest+l)>=res THEN 


0163 


ENDEXIT 


0167 


nearest=nearest+l 


0172 


ENDLOOP 


0176 


FOR i=nearest-24 TO nearest 


01SB 


FOR j=nearest-24 TO i 


01A0 


Rl=E12(i)+E12(j) 


01E2 


IF Rl>Rmm AND RKRmax THEN 


01 C7 


PRINT USING 'R7.2\E12ii); \ PRINT ' 


01E2 


PRINT USING 'R7.2'iE12<j)i \ PRINT ' 


0206 


PRINT USING 'R4.1VRl/res-l)*100; 


0220 


PRINT "/.' 


0225 


ENDIF 


0227 


NEXT j 


0232 


NEXT i 


023D 




023E 


FOR i=nearest+l TO nearest+25 



ind B i Rmax 



and "; 

in series* 
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0256 FOR j=nearest+l TO i 

026E Ri=i/(i/Ei2(i)+l/E12(j)) 

0289 IF RDRmin AND RKRma>; THEN 

029E PRINT USING 1 R7.2 , ,EI2*i)", \ PRINT ' and B ; 

02E9 PRINT USING 1 R7.2 1 ,E12(j)i \ PRINT ' in parallel, " 

02DD PRINT USING "RA-l", (Ri/res-i )*1W>; 

02F7 PRINT 'X' 

02FC ENDIF 

02FE NEXT j 

0309 NEXT i 

0314 PRINT \ PRINT "Search complete." 

032A PRINT 

032C ENDLOOP 

0330 DATA .01 ,.012,. 015, -BIB,. 822,. 827,. 033,. 839,. 047,. 056,. 063,. 082 



83EB DATA 1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2 

0434 DATA 10,12,15,18,22,27,33,39,47,56,68,32 

045C DATA 100,128,150,180,220,270,338,390,478,560,630,820 

B48B DATA 1000, 1208, 1500, 1800,2200,2788,3300,3903,4700,5608,6800,8200 

B4EF DATA 10000, 12000, 15880, 18000,22080,27888, 33888. ,39080. ,47888. ,56888. ,68888. ,82800. 

8505 DATA 1080000. 

As usual i the listing is from Easic09's LIST command so that you can check for errors in the lines by 
comparing the psuedo line numbers (actually number of bytes from the start). Have fun with it, and I hope it will 
get you out of trouble sometime. 

Regards, 
Bob Devries. 

ododoooodoOOOOOOOOOOoooqqooooo 

CoCo Horizon 

A new colour computer magazine is about to be released here in sunny Queensland 1 

Its name will be CoCo Horizon. It will probably be published on a monthly basis (depending on subscriptions and 
authors) and will cost approximately $3.80 per issue. It is hoped that the first issue will be available sometime 
in January 1990. 

Readers who are interested in supporting this venture should contact : - 



Andrew McQuirk 
18 Deborah Court, 

Slack's Creek. 
Queensland. 4127. 
Phone: 87 2082966 



ooooooooooOOOOOOOOOOoooooooooo 
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THE FUTURE OF THE C0CO3 
A "Philosophical" viewpoint by Nickolas Marentes 



THE FOLLOWING ARTICLE 15 BASED ON MY OWN OBSERVATIONS OF THE C0CO3 MARKET AND COMPUTER INDUSTRY WORLDWIDE. I HAVE 
NOT BEEN IN CONTACT WITH TANDY CORPORATION FOR ANY OF THE INFORMATION OUTLINED IN THIS ARTICLE. FEEDBACK TO THIS 
ARTICLE IS QUITE WELCOME AND SHOULD BE DIRECTED TO COCO-LINK MAGAZINE. 

Anyone who owns a CoCo3 would surely be deeply disappointed by the recent "chop 3 of the CoCo3 by InterTan. 
I, as one who has spent many hours developing software and hardware for it am more so. But I do believe that there 
are two sides to this. The side we are all familiar with, that Tandy has pulled the rug on its loyal CoCo3 
customers. The other side is that this is the way the market is heading. Before going into mors details, lets look 
at the CoCo3 market prior to the "tragedy 3 . Let's look further than just our little confined CoCo3 world and see 
what's happening in the rest of the computer world. 

Commodore &r& on the verge of chopping the C-64 and C-128. A C-64 with a disk drive retails for around the 
$600 mark. Anyone wanting to spend this much money on a computer which they will primarily be playing games on may 
as well fork out the extra $300 and get an Amiga 500 pack giving them 512K of Ram, S80K high speed drives, 40% 
color graphics, stereo sound and access to fantastic software. Anyone buying a C-64 solely for games may as well 
spend only $200 for a Nintendo games console and be done with slow loading procedures. 

Someone who is not interested in just playing games but wants to do some serious computing will generally 
spend a bit more to get a more powerful computer. 

What I am trying to highlight here is that the low end computer market is dividing into two distinct areas. 
The first is the very low end game playing market. The other is the upper-low end computer enthusiast iplay-the- 
occasional-game) market. The very low end market is heading towards the games console area. If games is all they 
want, then games is all they need. No need to know about keyboard commands, loading procedures, programming 
languages etc., just slap a cartridge in and play. Games consoles are cheaper to produce and therefore cheaper to 
buy and to many, a low price is the right price. 

The upper-low end user wants big power for lower bucks. Half a meg, one meg and eight meg of Ram. A fast 16 
bit processor and fast har drives if the money can reach that far. They want a large and varied software base. IBM 
compatabiiity is a big thing because it brings many users together, Software developers love it because it means 
more customers, computer developers love it for the same reason. 

The CoCo3 as many other computers of the era, fall mid way between these to areas. It plays games for a 
reasonably low cost but can be expanded to run powerful operating systems. Customer demands nowadays are more 
specific. For one who jdst wants a games unit, the CoCo is expensive and the variety of games is small. For one who 
wants a power system, the CoCo needs to be expanded. By the time a CoCo is equipped with a disk drive, 512K Ram, 
operating system and RGB monitor, it isn't too much cheaper than a PC, Amiga or Atari ST system. This is exactly 
the same problem that the C-64 and C-128 face (although the C-64 market has more momentum than the CoCo market and 
will stay around a little longer). 

Well, we see that the CoCo3 is without a solid market area and in this light, we can understand why 
InterTan have given it the chop. Enough of the grim facts and let's look at what the future holds. 

If Tandy were to do a CoCo4, what shape or form must it take to recapture a market position. From the last 
few paragraphs, we can conclude that it must either go upmarket by adding extra memory, built in drives, be faster 
and more professional and make OS-9 the standard operating system OR go down market and make it into a games 
console. 

The upmarket approach would fail before it even started. Many companies have tried to go their own way, 
avoiding the IBM PC standard. Most of these companies are not heard of anymore. The IBM standard is a big standard. 
Commodore, Atari, Amstrad even Tandy have seen this. All these companies have gone IEM compatible. Commodore and 
Atari have continued their quest with their own standard and have achieved reasonable success but the IBM standard 
still dominates. The CoCo would not have a chance and even if it did, it would be too big a risk for a company like 
Tandy to take on. 

Page 6 December 1939 



AUSTRALIAN 0S9 NEWSLETTER 

The future of the CoCo3 is in the games console area. Now before you start swearing and make statements 
like "I don't want a games computer! 8 ? let me explain how I (if I was in charge of Tandy) would go about a CoCo4. 

Imagine a box which has a cartridge slot in the top for- game packs? connectors in the side to take two (or 
four!) joysticks? several buttons for selecting and starting games and video connectors at the back for a standard 
TV and RGB monitor. This would be the Tandy CoCo game console unit. It would basically be a CqCd3 with no keyboard, 
no BASIC ROM? 128K RAM plus a 3 channel sound chip (as used in many games consoles). This would be cheap to produce 
and low cost to buy. Now what if this box also had a duplicate cartridge connector as used in the CoCo3 but placed 
at the back of the unit. What if it also had a connector at the front of the unit marked 'keyboard 8 . Tandy could 
sell an add-on kit consisting of an Extended Color Basic Rom cartridge and separate detachable keyboard which when 
plugged into the H box" transforms it into a CoCo3! Bring out a new (or re-introduce the old) disk drive unit with 
Disk Extended Basic and plug it into the back connector and there you have a CoCo3 disk system!! 

Mow let's get really creative! How about also offering an OB-9 Level 2 ROM cartridge !!! Maybe even with 
Muiti-Vue!!!! 

I feel that this design would keep existing CoCo owners very happy and will bring together a lot more CoCo 
users. Users who first bought the system as s games console and later decided to upgrade it to a computer and enter 
the world of CoCo computing! The more I think about it the more great ideas I come up with! 

Well? time to get off my soap box and return to the real world of gloom where the only thing that keeps us 
going is the hope that the CoCo4 become reality. 

THIS ARTICLE IS BEING SENT TO TANDY CORPORATION IN FORT WORTH TEXAS IN THE HOPE THAT THEIR ENGINEERS AND MARKETING 
DEPARTMENTS ARE 'STIMULATED 1 . 

ooooooooooOOOOOOOOOOoooooooooo 

Let's Clear the Slate. 

3 Different Ways. 

by Bob Devries and Don Berrie, 

I'll bet many of you have cursed 059 for not having a CIS in its repetoire of available commands. Well? here are 
now three different versions for you to look at and use. They all do the same thing? that is? send to the screen 
the code(s) necessary to clear it. 

While Don and I were discussing another programme used in this newsletter? Don showed me a CLS command which he had 
written for his ATARI 526 with OS9/63000. He ha6 written it in 'C? and it was an astounding 4698 bytes long ! I 
said to him that I thought we should write one in 68030 assembler. There was only one snag. Neither of us is on 
speaking terms with 6BK assembly language? even though both of have a computer with that CPU in it. 

We did some investigation end experimentation? and after some in depth study of the manuals? we came up with the 
programme below. Also shown are two different versions for OS9/6S09, one for the RMA and RLINK programmes? and one 
for ASM. Of course? the 68K version is compiled with R6S and linked with L68. 

Here's the source code for 6S000/OS9 

nam cis 

Edition equ 1 first edition 

typelan set (Prgrm<<8)+0bjct set program type and language 

attrev set (ReEnt<<8)+l set attributes and revision 

* next comes the programme section 

psect cl s? ty pelan ? attrev? Editi on ?0? start 

use /h0/def5/5ystype.d definitions files to use 
use /h0/defs/oskdefs.d 

P a g e 7 Dece m b e r i 9 8 9 
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* next is the initialised data and stack area 
vsect 
ds.b 255 
ends 



start moveq #1 T d0 

moveq #2,dl 

lea clscmd(pc),aE 

ds? I$Write 

moveq #8,dl 

os? FtExit 
clscmd dc.b 27,69 

ends 



select stdout 

printing two chars 

point to chars to print 

do write command 

clear the error number 

and exit 

$1B,$45 clears the screen on ATARI 0S9/6SK 

end of programme 



To assemble this, we used the following command lines:- 

R68 els. a -o=/R0/c!s.o 

L68 cls.o -l=/H0/LIB/syslib.l -o=/R0/cls 

This resulted in the binary file 'els' to be stored in the ramdisk, a mere 116 bytes. Because of its length 
(or lack of it), it loads much more quickly than the C version, and also works more quickly. 

Here is the OS9/6809 version for the RMA assembler and SLINK linker. 

nam Cls 

Edition equ 1 

Prgrm equ 16 

Ob jet equ 1 

ReEnt equ 128 

type Ian set Prgrm+Objct 
attrev set ReEnt+1 

psect Cls, typelan, attrev, edit ion, 0, start 

use /Dl/LIB/os9defs.a 





vsect 








rmb 255 








endsect 






start 


Ida #$01 




select stdout 




ldy #$0001 




print one char 




leax clscmd, 


per 


point to char to print 




os9 ISWrite 




go print it 




clrb 




clear error if any 




os9 F$E>;it 




and exit 


clscmd 


fcb 12 




$0C clears the screen on CoCo 




endsect 




end of programme 



Assembly is done like thiss- 

RMA cls.a -1 -o=/R0/cls.o 

RLINK cls.o -l=/Dl/LIB/sys.l -o=/R0/cls 
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Now here's the code for those of you with 0S9 Level One, or those who don't have the RMA assembler. You'll 
notice that the code is written differently to the previous two. 

nam Cls 

ifpl 

use /dd/def5/os9defs 

endc 

Edition equ 1 

Type! an set Prgrm+Objct 

Attrev set ReEnt+i 

mod ClsEnd,ClsNam,typelan,attrev, start, ClsOat 



CIsNam 


fcs /Cls/ 




fcb 1 




rmh 255 


ClsDat 


equ . 


start 


Ida #$S1 




Idy #$S001 




lea>; ClsCmd, per 




os? I$Write 




clrb 




os? F$Exit 


ClsCmd 


fcb 12 




emod 


ClsEnd 


equ * 



the period in this line must not be left out 



asterisk here important! 

To assemble this version the command line is like this:- 

ASM cis.a l,o=/R3/cls #12fc 

Note the #12K here is necessary else the assembler quits with symbol table full error. 

Weill there you have it. You'll notice that in all the examples I've used the R0 ratndisk as my temporary 
storage. You may of course use any drive and directory. This comment also applies to the pathlist for the libraries 
and other definitions files. You'll need to change them to suit your system. For example, in the last version, I 
used ? /W as the drive specifier, which is the correct way for OS? level two, and denotes the 'default drive 7 
(read the article about that elsewhere in this issue), you may change that to /DB or /Dl or whatever to suit the 
situation. 

For those of you who are using the Cls programme which appeared in 'The Rainbow' of November 1986 page 204, 
there are two errors in the source code. The first one in line IS, is not fatal, and is rectified by replacing the 
'*' with a V. The second error causes the programme to modify itself, which is, of course, quite illegal in 0S9. 
To change this change line 22 to read ... leax char,u ... not ,pcr as it is now. This also results in the code 
being two bytes shorter. 

Well, have fun with that, OS? level two users may want to include this command with the 'Shell 5 so that it 
will always be in memory. 

Regards, 
Don Berne 
Eob Devries 
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An explanation on windows for your system disk 
by Rob Unsworth 

What I am going to do is explain how to configure windows for your system disk. Windows that are loaded with 
your boot file and do not require wcreate or display sequences in your startup file. 

The listing below is a copy of the startup file which was being used by one of user group members, who gave 
a copy of his system disk to a new member, and I Udve since noticed a third member with the same problem. Now you 
know why I am writing this article. 

iniz r0 

* start system time from keyboard 

set i me </l 

format /r8 </l 

iniz wl 

iniz w2 

iniz w7 

wcreate /wl -s=02 8 SB 24 80 81 81 

wcreate /w2 -s=82 8 8 88 24 82 87 87 

wcreate /w7 -s=B2 8 8 88 24 85 82 82 

shell i=/wl& 

shell i=/w2fc 

shell i=/in7& 

dates 
As you can see wl, w2, and w7 are going to be available to the user each time the system is booted. These 
three windows are being loaded in with the boot file, probably with the default descriptors that came with the 
system master disk. As the windows are what we are discussing here I ujill only refer to that part of the startup 
file which relates to windows, 

The three iniz commands are not really necessary, unless you want to reserve memory for each window, as the 
system will allocate memory dynamically (as needed) to each window. 

The wcreate command will be loaded, then /wl will have it's peramaters changed to an 38,24 text screen with 
a white foreground a blue background and blue border. Then wcreate will be unlinked and then loaded again for /w2. 
The changes to /w2 will be made then it will be unlinked and loaded again for /w3. 

Get the picture A lot of wasted time. 

There is a simple solution, change the default parameters of the windows in the boot file. To do this 
requires a little understanding of what paramaters need changing and where they are located. 1 mill now endeavour- 
to give you the means to obtain that understanding. 

Screen type code 

1 = AS # 24 text screen 

2 = 88 * 24 text screen 

3 = not used 

4 = not used 
j = 648 * 192, 2-colour graphics 

6 = 320 * 192, 4-coiour graphics 

7 = 648 * 192, 4-coIour graphics 
87 Cyan 8 = 328 * 192, 16-colour graphics 

The codes above are the ones we require along with the start location of the window, this being the column 
and row of the first character space. You will also have to decide on the size of the window, do not get this 
confused with screen type, as you can have an 83 column text screen (screen type code 2) that is only 48 columns 
wide. 

Now choose.... Screen type, Start location, Window size, Foreground, Background and Border colours. 
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r codes 


88 


White 


81 


Blue 


82 


Black 


83 


Green 


84 


Red 


85 


Yellow 


86 


Magenta 
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The ne>;t step is to see where these changes need to be made. Then we can look into how to make the changes. 
The list of numbers below is a dump of the WI module supplied with your system disk. What we are looking for is to 
locate the bytes that need to be changed to produce the window we want when we boot 0S9. The byte for the number of 
columns is at $2c and you will find that the number of columns is $ib (27). The rows are at $2d which shows the 
number of rows at $0b ill). The screen type is located at $38 and is $01. The start location of the window can be 
found at $31 (column) and $32 (row) and in the listing for WI they are both $03 indicating that the first character 
space is the top left hand corner of the screen. The only thing left is the colours, these are located at $33 
(foreground) which is $02 (black), $34 (background) which is $00 (white) and $35 (border) which is $84 (red). 

Addr 01 23 45 6 7 8 9 A B CD EF B2468ACE 



B7CD 0043 0036 F181 6000 3800 3B03 07FF .N.C.&q.O.S. ;... 

0010 AHA 0000 0100 0101 0000 1806 180D 1B04 ! 

0020 01 17 0305 0807 8000 0036 0600 1B0B 0101 6. .... . 

0830 0100 0002 0004 57B1 5343 C643 4333 49CF WISCFCC3I0 

0046 7CD1 80 

Now to change this window descriptor to be the same as the one in the wcreate wl command in the listing of 
the startup file. A 80 column by 24 line text screen with white lettering on a blue background with a blue border. 

059: load modpatch 

0S9:modpatch 

1 1 wl *links to the wl module in memory 

c c 2c lb 50 *changes $2c from $lb (27) to $50 (80) column 

0S2c lb 50 

c c 2d 0b 18 *changes $2d from $0b (11) to $18 (24) rows 

002d 0b 18; 

c c 30 01 02 ^changes $30 from $01 (40) to $02 (80) screen type 

6030 01 02 

c c 33 02 00 *changes $33 from $02 (black) to $00 (white) foreground 

0033 02 00 

c c 34 00 Si ^changes $34 from $80 (white) to $01 (blue) background 

0034 00 01 

c c 35 04 01 *changes $35 from $04 (red) to $01 (blue ) border 
v *tc verify and update the modules CRC 

<control><break> 

The Wl module in memory has now been changed. Any of the other window modules can be changed in the same way. You 

can now create a new system disk using cobbler or 0S9gen, and eliminate those wcreate commands from your startup 
file. 

I hope this has made the configuring of windows a little clearer. A helpful hint that will save you a lot of 

hassles, if you have booted 0S9 with wcreate in your startup file and they are the windows you want each time you 

boot up. A cobbler to a newly formatted disk will make the changes for you. Your startup file should then look like 
this.... 

Iniz r0 
set i me </l 
format /r0 </l 
shell i=/wl& 
shell i=/w2& 
shell i=/w?& 
dates 

Isn't this a lot neater than what we started with ?.... Happy computing. 

Rob Unsworth 
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HOW TO BECOME A MILLIONAIRE 

If I knew that I would be one myself, don't you think 7 

But I can tell you this: The more money you are able to save over as long a period as possible at the highest 
possible interest rate, the greater is your chance of becoming a millionaire! But you knew that already, right? 
So what you f iand I J really need to know is how to calculate just how much and for how long, etc to save. 

Or another situation: The Government is talking about us all providing our own old age pension in the form of 
Superannuation? but would you be better off just simply saving up your hard earned cash and control your own 
investment and save paying some Fund Manager (a company such as AMP Society) large fees. Of course* in that case 
^ou need a lot of self control so that you don't spend the money prematurely. 

The factors to consider are the following: How much money do you want to (and are you able to} save 9 Since we 
hve in times with constant inflation you should consider increasing your savings each year by at least the rate of 
inflation. Since you don't know what the inflation rate will be in the future? you simply have to make a guess. 
Another factor is how high an interest you can get on your savings. In an ordinary savings account the interest 
rate is fairly low? so you might look for better investment accounts? but remember the general rule that the higher 
the potential return on your savings the higher the risk on the investment? in other words the less safe your 
money! so you need to balance one against the other. Yet another factor is your marginal tax rate, ie the rate of 
tax you pay on the top Dollar you earn. For instance? right now the highest tax rate in Australia is 477., but you 
may pay a lower rate, it depends on your income. Do remember that as your savings grow and your interest earnings 
grow with it, that may cause you to come into a higher tax bracket, even the top tax bracket. The final factor to 
consider is the length of the period of saving and for how long the money is left to earn interest before it is 
withdrawn. 

So I wrote a BASICS? (excellent programming language that) program which I called SAVINGS CALCULATOR. Below is the 
program listing and a sample calculation. Type in the program and try out a number of different savings plans that 
suit your circumstances. I think you may be staggered by the potential of your savings. 

Disclaimer: I am NOT an accounting professional. This program may be helpful as a guide, but for professional 
advice please speak to an accounting professional. 

Happy computing! 

Your fellow CoCoNut? 

01 e Eskil riser. 



*** S A V I N G S CALCULATOR*** 

Copyright (C) 1939, all rights reserved, by Ole Eskildsen, II Monarch St? Kingston QLD 4114. Donated to the public 
domain for personal use only. The developer does not accept any liability as the result of using this program. If 
in doubt seek professional advice. This calculator helps you determine the result of different savings plans. First 
you enter the initial annual savings contributions, e.g. $100 per month = $1260 per annum. Then you enter the 
percentage you intend increasing your savings by each following year. As a guideline you should at least increase 
your savings by the expected inflation percentage. You Are then asked to enter the expected annual interest rate 
ucn\ expect to receive on your savings. Next, the marginal tax rate? which is the rate of tax at the top end of your 
income bracked at which the interest earned on your savings will be taxed. And finally? for how many years do you 
mt this savings plan to run? Try several different variations! If you have a printer you can also print the 
result. 

INITIAL ANNUAL CONTRIBUTION: 3600 
I INCR IN CONTRIB/YR: 10 
tST. INTEREST RATE: 13.5 
MARGINAL TAX RATE: 41 
IERM IN YEARS: 26 

Page 12 December 1989 



AUSTRALIAN 0S9 NEWSLETTER 



PRINT-' <Y/N): N 



INIT ANN CONTRIB: 3600. 1 INC 13. INT RATE: 13.5 TAX I 41. TERM: 20. 



YEAR 


CONTRIB 


INTEREST 


TAX PAID 


ACCUMULATED 


1. 


3600.00 


486.00 


199.26 


3886.74 


2. 


3960.00 


1059.31 


434.32 


8471.73 


3. 


4356.00 


1731.74 


710.S2 


13849.46 


4. 


4791.60 


2516.54 


1031.73 


20125.82 


5. 


5270.76 


3428.54 


1405.70 


27419.42 


6. 


5797.84 


4484.33 


1338.58 


35863.01 


7. 


6377.62 


5702.49 


2338.02 


45605.10 


8. 


7015.38 


7103.76 


2912.54 


56311.70 


9. 


7716.92 


8711.36 


3571.66 


69668.32 


10. 


8438.61 


10551.19 


4325.99 


84332,14 


11. 


9337.47 


12652.15 


5187.38 


101184.33 


12. 


10271.22 


15046.51 


6169.07 


120333.03 


13. 


11298.34 


17770.24 


7285.80 


142115.31 


14. 


12428.18 


20863.44 


3554.01 


166853.42 


15. 


13670.99 


24370.80 


9992.03 


194903.18 


16. 


15038.09 


28342.07 


11620.25 


226663.10 


17. 


16541.90 


32832.68 


13461.40 


262576.28 


18. 


18196.09 


37904.27 


15540.75 


303135.89 


19. 


20015.70 


43625.47 


17886.44 


348890.62 


20. 


22017.27 


50072.57 


20529.75 


400450.71 




206190.00 


329255.44 


i34994.73 


406450.71 



PROCEDURE savings 
0000 

0001 REM PROGRAM." SAVINGS 
0014 REM Date Written: 2 Dec 89 
002D REM Programmer: Ole Eskildsen 



REM Copyright (C) 1989 by Ole Eskildsen, All Rights Reserved 

REM This program has been donated to the public domain for personal 

REM use only. It may be freely used and shared with others for non- 

REM commercial i personal use provided no fee other than the cost of 

REM the media is charged and on the condition that this copyright 

REM notice is left intact. The developer does not accept any 

REM liability as a result of using this program. 

REM If in doubt, seek professional assistance. 

REM 

REM Ole Eskildsen, 11 Monarch St, Kingston QLD Al 14, Australia 

REM Telephone: (07) 209 4322 

REM 



004C 
0087 
0088 
00CA 
810D 
014F 
018F 
01 CE 
01FA 
0227 
022A 
0267 
0282 
02C5 
02C6 
02C7 
02C8 
02CC 
02D3 
0306 
0312 
0313 
034E 



10 



DIM PRINTERsBYTE 

DIM APJRJRjYRJCACJP^.JIJAJTtANCKTrREAL 

DIM LINE:3TRINGC601 

AC=0 \TP=B \B=0 \TI=8 \TA=8 \TT=0 \ANCNT=C 
LINE=' 



)•' a q e 1 
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83SE 

03SF 70 PRINT CHR$(12) 

0397 

0393 PRINT TAE(15); "*** SAVINGS CALCULATOR ***" 

03CD PRINT UB 

03D1 PRINT 'Copyright (C) 19S9, ail rights reserved, by E 



PRINT E 01e Eskildsen, li Monarch St, Kingston QLD 4114. ' 

0434 PRINT "Donated to the public domain for personal use only. 3 

046B PRINT "The developer does not accept any liability as the result of 

04AE PRINT "using this program. If in doubt seek professional advice." 

04E9 PRINT "This calculator helps you determine the result of different" 

0528 PRINT 'savings plans.' 

053A PRINT "First you enter the initial annual savings contributions, " 

0577 PRINT "e.g. $180 per month = $1200 per annum." 

05A1 PRINT "Then you enter the percentage you intend increasing your " 

B5DE PRINT "savings by each following year. As a guideline you should " 

061E PRINT "at least increase your savings by the expected inflation 8 

0£>5E PRINT "percentage. You are then asked to enter the expected annual" 

069B PRINT "interest rate you expect to receive on your savings." 

06D3 PRINT "Next, the marginal tax rate, tihieh is the rate of tax at the" 

0713 PRINT "top end of your income bracked at which the interest earned' 

0752 PRINT 'on your savings will be taxed.' 

0774 PRINT "And finally, for how many years do you want this savings plan 8 

07E5 PRINT "to run? Try several different variations!" 

07E3 PRINT 8 If you have a printer you can also print the result." 
0S1E 

031C 100 PRINT " 

0823 200 INPUT "INITIAL ANNUAL CONTRIBUTION: B ,AP 

0S4E INPUT "X INCR IN CONTRIE/YR: MC 

0369 INPUT "EST. INTEREST RATE: MR 

0SS5 INPUT "MARGINAL TAX RATE: ",TR 

08A0 INPUT "TERM IN YEARS: B ,YR 
S3E7 

0SE8 INPUT "PRINT-' (Y/N): \F$ 

08CE IF P$="y" THEN 
0SDB P$= a Y* 

08E3 END IF 

03E5 IF P$= fl Y B THEN 

03F2 INPUT "MAKE PRINTER READY CENTER] 8 , Rt 
0915 OPEN #PRINTER, B /F B :WRITE 

0922 END IF 
3924 

0925 300 PRINT CHRtU2)", 

B92E PRINT "INIT ANN CONTRIE: "; AP; B 7. INC B ; IC; 

095S PRINT B INT RATE: s ; IR; B TAX a b ; TR: ' TERM: '\ YR 

898A PRINT 

09SC PRINT S YEAR CONTRIE INTEREST TAX PAID '; 

09C2 PRINT 3 ACCUMULATED' 
09D4 

09D5 320 IF P$<> B Y B THEN 500 
B9ES 

89E9 PRINT ^PRINTER, B INIT ANN CONTRIE: '; AP; " I INC: ■; IC; 

0A19 PRINT SPRINTER,' INT RATE: °\ IR; * TAX I fi ; TR; 

0A42 PRINT SPRINTER," TERM: »; YR 

0A57 PRINT SPRINTER," " 

0AM PRINT #PRINTER, B YEAR CONTRIE INTEREST a ; 

0A93 PRINT SPRINTER, S TAX PAID ACCUMULATED" 
8AE3 
0AE4 500 FOR 1=1 TO YR 
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0AC9 




AC=AC+AP 


0AD5 




ANCNT=AP 


0ADD 




TP=TP+AP 


0AE9 




E=AC*IR/100 


8AF9 




TI=TI+S 


BB05 




TA=E*TR/!00 


8B15 




TT=TT+TA 


0B21 




AC=AC+B-TA 


0B31 




AP=AP+AP*IC/100 


BB45 




PRINT USING D R4.8 Aa ; I; 


0E54 




PRINT USING H R15.2 A SANCNT; B; TA 


0B6F 






0B78 


720 


IF ?%=*i* THEN 


0B80 




PRINT #PRINTER USING B R4.S A£ ; I 


0E93 




PRINT SPRINTER USING B Ri5,2 A V 


0EE2 




END IF 


BBB4 




NEXT I 


0BEF 






0BC0 


1010 


PRINT 3 ■; LINE 


0BCE 




PRINT * ■; 


0ED7 




PRINT USING B Ri5.2 AB ,TP; TI; TT; AC 


0BF2 




IF P$="Y B THEN 


0EFF 




PRINT #PRINTEK, K B ; LINE 


0C0F 




PRINT SPRINTER/ B ; 


0C1D 




PRINT SPRINTER USING 1 R15.2 A MP; 


0C3C 




EMDIF 


0C3E 






0C3F 2000 


INPUT "PRESS [ ENTER ] B ,AA$ 


0C57 




IF P$= B Y B THEN 


0C64 




CLOSE SPRINTER 


8C6A 




ENDIF 


8C6C 




END 



T A « A f- 



TI; TT; AC 



ogogoggoggOOOOOOOOOOooogooooog 



Device Descriptor Query 

GeGff Donges of Holt ACT. has asked a question about the descriptor B dd" he came across where he expected that the 
correct descriptor should have been 'd0 H . 

The following is from the Microware 059 reference manual for the Color Computer:- "Device Descriptors - Term, Ti, 
D0i and so on, ar9 device descriptors. These files describe the devices connected to the system. They contain 
device initialization data as well as code that directs OS? to the physical addresses of the ports to which devices 
are connected. 9 (End quote.) 

The descriptor "dd" has a full name of "default descriptor* and is a floppy disk drive descriptor, as is d0, di, 
62. The Microware Level 2 039 version for the Color Computer 3 is supplied with a descriptor u dd" which is 
identical to "dS B apart from the name. Therefore, a path list containing a dd B will access the drive "dS". Why two 
descriptors for the same drive? The logic behind this is that you may wish to h&v9 some other drive as the 
"default drive*, for example B di B , in which case the "dd B descriptor would need to be the same as B dl B . 

Some programmers use the descriptor a dd u in the program code. One example of this is Multi-Vue, which includes the 
command a chd /dd" in the startup file. Multi-Vue also looks for its environment file ienv.file) by the path 
/dd/sys/env.file. Now, if the descriptor "dd" is for drive 1 <drv=8i), Multi-Vue should run from Drive 1 - well at 
least that is the idea of the fl dd" descriptor. A user should be able to choose which drive to set up as the 
default drive and then run application programs without the need to make changes to the program. This, however, is 
not always the case. Let's go back to Multi-Vue for a moment. The Autoex £ hultistart modules of Multi-Vue d.re 
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hard ceded to d8, dO/CMDS which of course will look at Drive B for files without regard for the default drive which 
is now set at di (drive 1). As not all programmers follow the convention as intended, the only options are to 
patch all modules which are hard coded for /d@? or to take the easy way out and have a dd" set for Drive @. This 
does mean that the Boot disk must be removed from /dB and the application program run fro* Drive 0. Nous it does 
not matter much if the program looks for flies by a pathname beginning with a dd s or 6 dS b . 

The most common approach is to have exactly that configuration, le both B dd B and "dB" are set as Drive 8, It is a 
good idea to have this a dd fl in the 0S9Boot file so that fewer ERROR #221 T s or ERROR 82i6's are encountered. 

It seems to me that the advantages to be gained from a default drive descriptor *dd B have largely been diminished 
by use of hard coded pathlists to a particular drive? usually B d3 B . 

Now whichever way you choose to go* it must be remembered that OS? on the CoCo can ONLY boot from drive B or hard 
drive. In the case of a hard drive? a B dd fl descriptor identical to the H Bfl B device descriptor could be used and of 
course any hard coding of B d0 a in programs running from the hard disk? would need to be patched. 

Good programming should not include hard coding to fl d0 3 , so do your bit to avoid it and your programs will be more 
flexible in the 059 environment. 

A better approach to H dd" default drive would be the use of dot or dot dot ie? a . fi a .. B 

Each directory has two entries with names B . 9 and *.. B (dot and dot dot), These entries contain the logical sector 
numbers of the directory and its parent directory respectively. This opens up a lot of possibilities. 

eg "dir . ' will display the files of the current working (data) directory. 

"dir .." will display the files of the parent of the current working directory. 

"dir ..." will display the files one level higher ie the files of the parent of the parent. 

So? instead of a pathname of VdB/cmds' or V'dd/cmds' we could use "../crnds". The a .. B will be the parent of CUDS 
in this example? and will be the current working directory in most cases. Let's run Multi-Vue from drive /di. 
Place the Multi-Vue disk in drive 1 and "chd /dl;chx /dl/cmds". We would now expect Multi-Vue to be run from drive 
1, and it would if all hard code in the modules for B d0 H \a^9 changed to ".." 

0S9 does not seem to mind if the number of parent levels called for is too many. If you have not used B . B or B .. B 
then go ahead and give it a try with a few directory levels. Regards? Gordon Bentzen. 



ooooooooco-OOOOOOOOOOooooooooDo 

FURTHER THOUGHTS ON THE CAPABILITIES OF 5HELLPLUS2 

One of those things that I had put off until sometime in the future finally came back to mind the other day. I had 
always intended to explore the shellscript capacity of shellplus, but somehow I never got around to it, until 
recently. 

What I wanted was to be able to have a simple command to format my ramdisk. Simply put? instead of typing ... 
Eformat /r0 r "RamDisk"? I wanted to be able to type ... rf? or something similar and the job would be accomplished 
for me by a shellscript. The following is what finally developed from that. 

I use sdisk3, a copyrighted disk driver from D.P. Johnston? as my standard disk driver? and my formatter is called 
sformat. I normally use this driver? as it allows me to read, write and format disks in a number of other formats 
apart from Color Computer 0S9. The following shellscript is what finally developed: 

*ramdisk formatter 

prompt Format Ramdisk 7 (y/n) : 

var.3 

if :/.0=y 

display lb 22 01 13 02 26 14 05 04 
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display lb 22 01 15 03 24 12 35 132 

display lb 22 SI 17 04 20 10 05 02 

sformat /r0 r "RamDisk" 

display lb 23 

display lb 23 

display lb 23 
Echo Ramdisk Formatted 
endif 
*end 

I guess I should try to explain what it does. 

First of all, you will need to have the following commands in your execution path: 

prompt (simply a modified version of echo, but without a <CR> at the end of the string) 

display (a standard OS? command) 

sformat (special sdisk3 formatter) 

echo (a standard 0S9 command) 

You can of course, use the standard format command instead of sformat, but you will then have to alter the window 
dimensions to allow for the differing outputs. 

1 decided that I would incorporate it in my startup file. Consequently, 1 had to have the ability to choose 
whether I wanted it to do the format or not. Then 1 thought, well why not have the formatter running in a window? 
Then, if I decide to reformat the ramdisk from a shell running under another process (edit for example), then at 
least the original contents of the screen are not destroyed. 

So, running through the scriptfile, firstly, we ask whether or not to continue with the format. The answer to this 
question is placed in the shellscript variable var.0. The variable is then tested. If the result is anything but 
yes, the script drops through the loop and exits without doing anything. 

If, however, the first character of var.0 is V, then the contents of the loop are executed. The loop creates a 
number of non-destructive overlay windows, and runs the formatter in the 'ready 1 mode, and sets the disk name to 
RamDisk. It then closes the windows sequentially, until they are all removed, and the finally writes the message 
"Ramdisk Formatted" onto the original screen. All from a simple shellscript! 

The great thing about shellscripts is of course, that they are, comparatively, quite small. They are very 
effective because they have the capacity to call, and string together a number of other commands. Because of the 
way in which Shellplus2 handles memory data modules, it is possible, if we provide a shellscript with the 
appropriate header and CRC, to actually load them into memory, and execute them from there, just like an executable 
file. What this really means, is that you could write a large number of shellscripts, and merge them together as 
one single file. Because of their small size, you could cram quite a lot of them into one BK block of memory ... 
The datamod utility which is supplied with the shellplus2 programmes is the best way to accomplish this. 

Another example of creative hacking came to light the other day. I was examining the prompt setting facilities of 
Shellplusl', and I couldn't see any reason why I couldn't have my prompt a different colour from the rest of the 
output 11 I thought that, if I could include an escape string (such as is used with the display command) to change 
the screen attributes, within the prompt, then it should be possible to have all sorts of modified prompts. How 
about a flashing prompt? Or underlined? It brings to mind all sorts of possibilities. 

Unfortunately, I have not as yet found a simple way to accomplish this. I am working on it. Let me describe my 
initial attempts. 

If you read the documentation that comes with shellplus2, some details are provided of just where in the shell 
module, the prompt string is located. What I did was to save a copy of the shell to my ramdisk, and then use 
"zap H , our public domain disk zapper to actually modify the area of shell where the prompt resides, using zap's 
disk modifying command. After writing the modified sector to the disk, and exiting from the zapper, I reverifyeri 
the shell module, and then incorporated it in my merged shell file that is loaded from the commands directory on 
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Hey presto, it worked" Now I have a different coloured prompt from the remainder of the text. There are a few 
problems associated with this approach, but I will leave them for you to explore. In the meantime, I am attempting 
to find a way to pass escape strings direct to the shell via the P= prompt setting facility of sheliplus2. I will 
keep you informed. 

Until then, keep on hacking. 

If you have any questions or comments, please feel free to contact me on 
(07) 375-3236. Cheers, Don Berne. 



OOOOOOOOOOUOUOUUOUOU'JOOOOOOOOOOO 

Operating System Notes. 

Ever tried to use a Level I startup file under Level II? If, like some of us you suddenly found that your 
screen pause was not enabled, then read on. 

The normal arrangement for setting the page pause flag under Level I, was to use the line: 

Tmode.l pause 

This then set the global (under Level I) flag to on, and consequently, even when the startup file 
terminates, the page pause feature is still enabled. 

Under Level II, however, the system is "purer" 0S9. The first thing that the system does is load grfdrv, 
and then loads the merged shell file from the commands directory. It then looks for a startup file, and if found 
tries to run it. However, it does this as a shell process. What this means is that if you include the above line 
in your startup file, the tmode command processes as per normal, but when the startup file terminates, all of the 
attributes that were set dissappear with the shell. If, however, you have started shells in any other windows from 
the startup file, then the pause attribute for those windows is enabled!! (Because they will inherit all the 
attributes of their parent shell). 

To successfully set the screen pause attribute from the startup file under Level II, you should use: 

Xfflode /term pause 

Try it and see. 

ooooooooooOOOOOOOOOOoooooooooo 



COCO-LINK Magazine: Just a reminder for those interested in a wider section of CoCo systems. CoCo-Link is 
produced in South Australia and is well worth your support. Contact the Editor, Robbie Dalzell, on OS) 386 1647 or 
write; 

Co Co-Link 

31 Ned land Crescent, 
Pt. Noarlunga South, 
South Australia 5167 
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